2310 ' set or kill r/o file attribute
2320 ' 1.0
2330 SETFMD=TESTADDRESS+&HC
2340 FCB$ = STRING$(8," ")
2350 FCBNAME$=LEFT$(FCBNAME$,8)
2360 LSET FCB$ = FCBNAME$
2370 IF RO%=1 THEN

	 FCB$= CHR$(0)+FCB$+CHR$(&HA0)+CHR$(&HA0)+" "

	ELSE

	 FCB$= CHR$(0)+FCB$+"   "
2380 CALL SETFMD(FCB$)
2390 RETURN
